home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / seyon / script.QWK < prev    next >
Encoding:
Text File  |  1995-05-03  |  1.8 KB  |  90 lines
  1.  
  2. # script to login to a PCBoard BBS, download QWK mail, and logout
  3. # run this from the shell as seyon -script channel1
  4. # or run it from crond
  5.  
  6. # dial the number
  7.  
  8. if !linked
  9. dial "354-5776"
  10. endif
  11.  
  12. # keep dialing the number until connected
  13.  
  14. connect:
  15. waitfor "CONNECT"
  16. if !waitfor
  17. redial
  18. goto connect
  19. endif
  20.  
  21. # pause to allow the system to catch up
  22.  
  23. pause 3
  24.  
  25. # usual stiff
  26.  
  27. waitfor "Enter Language # to use (Enter)=no change? " # comment
  28. transmit "^M" 
  29.  
  30. # if you turn on color, you'll have to modify the expected
  31. # prompts to include the color escape codes, not a good thing
  32. # better turn on color at the end of the script, if yo want it
  33. # I don't know of another Unix comm program that has when
  34.  
  35. waitfor "Do you want Color? Y=Yes, N or Enter = No? "
  36. transmit "^M" 
  37.  
  38. # name and password
  39.  
  40. waitfor "Enter your first name? "
  41. transmit "jone doe^M"
  42. waitfor "Password (Dots will echo)? "
  43. transmit "you guess^M"
  44.  
  45. # get rid of those nasty prompts that we don't know how many we will get
  46. # we cannot do this without the when command, since PCBoard keeps changing
  47. # the prompt depending on the number of your call
  48.  
  49. when "(Enter)=More? " "^M"
  50. when "Enter = Yes? " "n^M"
  51.  
  52. # the usuall Channel 1 prompt
  53.  
  54. waitfor "Channel 1 Command? "
  55.  
  56. # once we are here, clear all standing when commands
  57.  
  58. when
  59.  
  60. # goto the QWK mail door
  61.  
  62. transmit "open 7^M"
  63.  
  64. # once here, ask for your packet
  65.  
  66. waitfor "Qmail Command? "
  67. transmit "d^M"
  68.  
  69. # of course we want it
  70.  
  71. waitfor "receive these messages (Y/N)? "
  72. transmit "y"
  73.  
  74. # once th epacket is archived and the BBS is ready to send it, execute
  75. # Zmodem to receive it. Seyon doesn't allow auto-Zmodem in a script
  76.  
  77. waitfor "Prepare to download"
  78. pause 3
  79. shell "$rz -vv"
  80.  
  81. # all done, sign off
  82.  
  83. waitfor "Qmail Command? "
  84. transmit "g^M"
  85.  
  86. # hangup, quit Seyon and return to the shell
  87.  
  88. hangup
  89. quit
  90.